unit appMappldXmlPoint;

interface

uses  classes, sysutils
    , xmlObject
    , appMappldTypes
;

type

{------------------------------ TMappldXmlPoint }

    {***************************************************************************
    * TMappldXmlPoint
    ***************************************************************************}
    TMappldXmlPoint = class( TXmlObjectBase )
public
    procedure   AfterConstruction(); override;

public //property
    property x : double index 0 read getFloatParameter write setFloatParameter;
    property y : double index 1 read getFloatParameter write setFloatParameter;

    end;

implementation

{*******************************************************************************
* AfterConstruction
*******************************************************************************}
procedure TMappldXmlPoint.AfterConstruction();
begin
    inherited;

    //FappClassAlias := XML_C_TMapPoint;
    //Fattributes.createFloat( XML_A_X );
    //Fattributes.createFloat( XML_A_Y );

    addAttributeParameter( XML_A_X ); // ticket
    addAttributeParameter( XML_A_Y ); // session id
end;

end.
